home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / defappleevents / test-aeobject.Lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  1.6 KB  |  54 lines  |  [TEXT/CCL2]
  1. ;; test sending appleevent objects.
  2.  
  3. (defappleevent set-data :|core| :|setd|
  4.   ((direct-object #$keyDirectObject)
  5.    (ae-data :|data|))
  6.   ())
  7.  
  8. (defappleevent get-data :|core| :|getd|
  9.   ((direct-object #$keyDirectObject))
  10.   ())
  11.  
  12. (defappleevent result :|core| #$kAEAnswer
  13.   ((data :|----|))
  14.   ())
  15.  
  16. #|
  17. (defvar aerecord (make-record :appleevent))
  18. (defvar reply (make-record :appleevent))
  19.  
  20.  
  21. ;;Give 1st window in 'AEObject-Edition Sample' a new name
  22. (send-appleevent
  23.  (make-set-data aerecord 
  24.                 `(:aedesc ,#$typeApplSignature :|CKD1|)
  25.                 :direct-object `(:aeobject :|prop|
  26.                                            (:aeobject :|cwin|
  27.                                                       (:aedesc ,#$typeNull)
  28.                                                       :|indx|
  29.                                                       1)
  30.                                            :|prop|
  31.                                            (:aedesc ,#$typeEnumerated :|pnam|))
  32.                 :ae-data "The New Name")
  33.  (%null-ptr))
  34.  
  35.  
  36. ;;retrieve the name
  37. (progn
  38.   (send-appleevent
  39.    (make-get-data
  40.     aerecord 
  41.     `(:aedesc ,#$typeApplSignature :|CKD1|)
  42.     :direct-object `(:aeobject :|prop|
  43.                                (:aeobject :|cwin|
  44.                                           (:aedesc ,#$typeNull)
  45.                                           :|indx|
  46.                                           1)
  47.                                :|prop|
  48.                                (:aedesc ,#$typeEnumerated :|pnam|)))
  49.    reply :reply-mode :wait-reply)
  50.   (result-data reply))
  51.  
  52. (#_aedisposedesc aerecord)
  53. (#_aedisposedesc reply)
  54. |#